home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / spoc88.zip / LOOPS.ZIP / READKBD.BAS < prev   
BASIC Source File  |  1988-06-10  |  274b  |  12 lines

  1. 'ReadKBD, a subroutine contained in MC1.INC
  2.  
  3. SUB ReadKBD(RetChar$)
  4. ' This function reads a keystroke from the keyboard
  5. ' and returns 1- OR 2-character string.
  6.  
  7.     DO
  8.       RetChar$ = INKEY$          ' get the keyboard input
  9.     LOOP UNTIL RetChar$<>""
  10.  
  11. END SUB
  12.